home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2614.ZIP / 50ERRS.ZIP / S87ERSYS.PRG < prev    next >
Text File  |  1990-10-05  |  2KB  |  145 lines
  1. ***
  2. *    ERRORSYS
  3. *
  4. *    Clipper error system
  5. *
  6.  
  7. NOTE ALTD()
  8.  
  9. RETURN
  10.  
  11.  
  12. ***
  13. *    expr_error(name, line, info, model, _1, _2, _3)
  14. *
  15.  
  16. FUNCTION expr_error
  17. PARAM name, line, info, model, _1, _2, _3
  18.  
  19. SET DEVICE TO SCREEN
  20. @ 0, 0
  21. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  22.             ", " + M->info
  23.  
  24. QUIT
  25.  
  26. RETURN .F.
  27.  
  28.  
  29. ***
  30. *    undef_error(name, line, info, model, _1)
  31. *
  32.  
  33. FUNCTION undef_error
  34. PARAM name, line, info, model, _1
  35.  
  36. SET DEVICE TO SCREEN
  37. @ 0, 0
  38. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  39.             ", " + M->info + " " + M->_1
  40.  
  41. QUIT
  42.  
  43. RETURN .T.
  44.  
  45.  
  46. ***
  47. *    misc_error(name, line, info, model)
  48. *
  49.  
  50. FUNCTION misc_error
  51. PARAM name, line, info, model
  52.  
  53. SET DEVICE TO SCREEN
  54. @ 0, 0
  55. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  56.             ", " + M->info
  57.  
  58. NOTE BREAK
  59.  
  60. QUIT
  61.  
  62. RETURN .F.
  63.  
  64.  
  65. ***
  66. *    open_error(name, line, info, model, _1)
  67. *
  68.  
  69. FUNCTION open_error
  70. PARAM name, line, info, model, _1
  71.  
  72. IF NETERR() .AND. model == "USE"
  73.     RETURN .F.
  74. END
  75.  
  76. SET DEVICE TO SCREEN
  77. @ 0, 0
  78. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  79.     ", " + M->info + " " + M->_1 + " (" + LTRIM(STR(DOSERROR())) + ")"
  80. @ 0, 65 SAY "Retry? (Y/N)"
  81.  
  82. INKEY(0)
  83.  
  84. DO WHILE .NOT. CHR(LASTKEY()) $ "YyNn"
  85.     INKEY(0)
  86. END
  87.  
  88. IF .NOT. CHR(LASTKEY()) $ "Yy"
  89.     QUIT
  90. END
  91.  
  92. @ 0,0
  93.  
  94. RETURN .T.
  95.  
  96.  
  97. ***
  98. *    db_error(name, line, info)
  99. *
  100.  
  101. FUNCTION db_error
  102. PARAM name, line, info
  103.  
  104. SET DEVICE TO SCREEN
  105. @ 0, 0
  106. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  107.             ", " + M->info
  108.  
  109. NOTE BREAK
  110.  
  111. QUIT
  112.  
  113. RETURN .F.
  114.  
  115.  
  116. ***
  117. *    print_error(name, line)
  118. *
  119.  
  120. FUNCTION print_error
  121. PARAM name, line
  122.  
  123. SET DEVICE TO SCREEN
  124. @ 0, 0
  125. @ 0, 0 SAY "Proc " + M->name + " line " + LTRIM(STR(M->line)) +;
  126.             ", printer not ready"
  127.  
  128. @ 0, 65 SAY "Retry? (Y/N)"
  129.  
  130. INKEY(0)
  131.  
  132. DO WHILE .NOT. CHR(LASTKEY()) $ "YyNn"
  133.     INKEY(0)
  134. END
  135.  
  136. IF .NOT. CHR(LASTKEY()) $ "Yy"
  137.     QUIT
  138. END
  139.  
  140. @ 0,0
  141.  
  142. RETURN .T.
  143.  
  144. 
  145.